home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
butility
/
qwerty71.zip
/
MENU.BAT
< prev
next >
Wrap
DOS Batch File
|
1994-04-04
|
2KB
|
91 lines
ECHO OFF
CLS
REM -- Test for access to all required files
IF NOT EXIST MANUAL.TXT GOTO :FAULT
IF NOT EXIST REGISTER.FRM GOTO :FAULT
IF NOT EXIST QWERTY.COM GOTO :FAULT
IF NOT EXIST Q-EDT.EXE GOTO :FAULT
IF NOT EXIST Q-PNT.EXE GOTO :FAULT
IF NOT EXIST DSKMSG.COM GOTO :FAULT
IF NOT EXIST CLOCK.COM GOTO :FAULT
IF NOT EXIST PX.COM GOTO :FAULT
IF NOT EXIST LOADFONT.COM GOTO :FAULT
IF NOT EXIST LETTER.DOC GOTO :FAULT
IF NOT EXIST KEYS.DOC GOTO :FAULT
IF NOT EXIST LJ-LTR.DOC GOTO :FAULT
IF NOT EXIST LJ-CARD.DOC GOTO :FAULT
IF NOT EXIST FILES.DOC GOTO :FAULT
IF NOT EXIST ALTCHARS.DEF GOTO :FAULT
IF NOT EXIST CHOOSE.COM GOTO :FAULT
IF NOT EXIST INTRO.SDX GOTO :FAULT
IF EXIST REGST.SDX GOTO :MENU
:FAULT
CLS
PROMPT $G
ECHO ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ECHO + +
ECHO + The files included in your QWERTY package are required +
ECHO + to run MENU.BAT, but they were not found in the current +
ECHO + drive/directory and the batch cannot be run. +
ECHO + +
ECHO + Switch to the drive/directory with the QWERTY files, and +
ECHO + try again. +
ECHO + +
ECHO ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
PROMPT $P$G
GOTO :END
:MENU
CLS
CHOOSE MENU.TXT
IF ERRORLEVEL=6 GOTO :M_INTRO
IF ERRORLEVEL=5 GOTO :M_PRINT
IF ERRORLEVEL=4 GOTO :M_REGISTER
IF ERRORLEVEL=3 GOTO :M_QWERTY
IF ERRORLEVEL=2 GOTO :M_LASER
IF ERRORLEVEL=1 GOTO :END
GOTO :END
:M_INTRO -- "Introduction" SELECTION
CLS
TYPE INTRO.SDX
PAUSE
GOTO :MENU
:M_PRINT -- "Print Manual" SELECTION
CLS
ECHO PRINTING MANUAL TEXT
COPY MANUAL.TXT PRN
GOTO :MENU
:M_REGISTER -- "Registration" SELECTION
CLS
TYPE REGST.SDX
PAUSE
CLS
CHOOSE PRINT REGISTRATION FORM?^{Y}es^{N}o
IF ERRORLEVEL=2 GOTO :MM_REG_PNT
GOTO :MENU
:MM_REG_PNT
CLS
ECHO PRINTING REGISTRATION FORM
COPY REGISTER.FRM PRN
GOTO :MENU
:M_QWERTY -- "QWERTY WORD PROCESSOR" SELECTION
CLS
QWERTY
GOTO :MENU
:M_LASER -- "QWERTY LaserJet Mode" SELECTION
CLS
QWERTY LASER-JET
GOTO :MENU
:END